SOHO - Exploring the Sun - 2003 Update/SOHO - Exploring the Sun - 2003 Update.iso/pc/data/main.dcr/scripts_79.ls

Text File | 2003-02-25 | 485 b | 21 lines

on prepareFrame
  global ComputerSpeed, skip_intro
  if skip_intro <> 0 then
    go("mmstart")
  end if
  if ComputerSpeed = 1 then
    open(the moviePath & "\avi\intro.avi", "aviplay.exe")
  end if
  if ComputerSpeed = 2 then
    open(the moviePath & "\avi\introa.avi", "aviplay.exe")
  end if
  if ComputerSpeed = 3 then
    open(the moviePath & "\avi\introb2.avi", "aviplay.exe")
    set the pausedAtStart of member "sunmove" to 1
  end if
end

on exitFrame
  go(the frame + 2)
end